添加了{APPTYPE CONSOLE}指令,现在我的应用程序运行速度非常慢.移动鼠标使其运行得更快

我正在尝试扩展第三方应用程序,以便除了使用Windows窗体GUI(需要混合模式)之外,还可以通过命令行调用它.这是一个相当简单的程序,基本上加载一个文件然后你点击它开始发送UDP网络数据包的按钮.

我需要从另一个调用应用程序,并希望传入一个参数,并需要能够将ExitCode返回到调用应用程序.根据我的阅读,为了做到这一点,你需要添加编译器指令{APPTYPE CONSOLE}.

我做了这个,我的应用程序按照我的意愿工作,除了发送网络数据包减慢到爬行. 我发现每当我在表格上移动鼠标时.网络传输速率显着提高.我怀疑存在某种类型的Windows消息队列问题,移动鼠标是否会导致中断,从而导致消息队列被处理？

我已经google了一下,尝试在Timer中调用Application.ProcessMessages和PeekMessages,间隔为1ms,这根本没有用.我在本用户手册中找到了其他一些应用程序,它说APPYPE CONSOLE和GUI类型都支持Indy 10.坦率地说,这让我感到困惑,因为我认为所有网络库都可以在两种模式下工作......但就像我说我不熟悉Delphi一样.

我很肯定这个问题在我的应用程序中被隔离到一行,即是否包含{APPTYPE CONSOLE}.

有人有主意吗？

版本信息:
Delphi 7 Personal(Build 4.453)
Indy 9.0.4

如果您希望添加{APPTYPE CONSOLE}到应用程序中,即使您希望执行混合模式,那么即使应用程序处于GUI模式,您也必须使用控制台.你当然可以关闭控制台,但这会引起一些闪烁,对我来说感觉有些迟钝.

没有控制台程序,你应该能够做你想做的事.一个小的测试程序证明可以从GUI程序读取退出代码:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ExitCode := 42;
  Timer1.Interval := 1000;
  Timer1.Enabled := TRUE;
end;

如果使用以下cmd文件执行此操作:

@echo off
start /WAIT project1.exe
echo %ERRORLEVEL%

程序显示其主窗体1秒钟,关闭,脚本打印42到控制台窗口.

现在用于捕获输出 - 如果允许使用临时文件,那么从GUI程序执行此操作实际上比从控制台程序执行此操作更容易.你需要用命令行参数启动程序,那么为什么不给它一个临时文件的名称,等待应用程序完成,读入文件并在之后删除它？